home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / STARFLAG.BAS < prev    next >
BASIC Source File  |  1991-07-01  |  8KB  |  128 lines

  1. ' ***************************** STARFLAG.BAS ******************************
  2. '                              
  3. '                               July 1, 1991
  4. '                          John Richard De Palma,  Happy 4th!
  5.  
  6. CLS : COLOR 7, 0: PRINT "                                                                                ";
  7. PRINT " "; : COLOR 1, 7: PRINT "█"; : COLOR 15, 1: PRINT "";
  8. COLOR 1, 7: PRINT "███"; : COLOR 15, 1: PRINT " ";
  9. COLOR 1, 7: PRINT "█"; : COLOR 15, 1: PRINT "";
  10. COLOR 1, 7: PRINT "█████"; : COLOR 15, 1: PRINT "";
  11. COLOR 1, 7: PRINT "█████"; : COLOR 15, 1: PRINT "";
  12. COLOR 1, 7: PRINT "█████"; : COLOR 15, 1: PRINT "";
  13. COLOR 1, 7: PRINT "█████"; : COLOR 15, 1: PRINT "";
  14. COLOR 1, 7: PRINT "████"; : COLOR 4, 7: PRINT "██████████████████████████████████████████";
  15. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "███";
  16. COLOR 15, 1: PRINT "  "; : COLOR 1, 7: PRINT "████";
  17. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  18. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  19. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  20. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  21. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  22. COLOR 15, 4: PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄";
  23. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "█";
  24. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  25. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  26. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  27. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  28. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  29. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  30. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  31. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "████";
  32. COLOR 15, 7: PRINT "██████████████████████████████████████████";
  33. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "████";
  34. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "████";
  35. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  36. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  37. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  38. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  39. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  40. COLOR 4, 7: PRINT "██████████████████████████████████████████";
  41. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "█";
  42. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  43. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  44. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  45. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  46. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  47. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  48. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  49. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "████";
  50. COLOR 15, 4: PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄";
  51. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "███";
  52. COLOR 15, 1: PRINT "  "; : COLOR 1, 7: PRINT "████";
  53. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  54. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  55. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  56. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  57. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  58. COLOR 15, 7: PRINT "██████████████████████████████████████████";
  59. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "█";
  60. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  61. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  62. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  63. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  64. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  65. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  66. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  67. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "████";
  68. COLOR 4, 7: PRINT "██████████████████████████████████████████";
  69. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "███";
  70. COLOR 15, 1: PRINT "  "; : COLOR 1, 7: PRINT "████";
  71. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  72. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  73. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  74. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  75. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  76. COLOR 15, 4: PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄";
  77. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "█";
  78. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  79. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  80. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  81. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  82. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  83. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  84. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  85. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "████";
  86. COLOR 15, 7: PRINT "██████████████████████████████████████████";
  87. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "████";
  88. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "████";
  89. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  90. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  91. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  92. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  93. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  94. COLOR 4, 7: PRINT "██████████████████████████████████████████";
  95. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 15, 1: PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄";
  96. COLOR 15, 4: PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄";
  97. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 15, 7: PRINT "██████████████████████████████████████████████████████████████████████████████";
  98. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 4, 7: PRINT "██████████████████████████████████████████████████████████████████████████████";
  99. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 15, 4: PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄";
  100. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 15, 7: PRINT "██████████████████████████████████████████████████████████████████████████████";
  101. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 4, 7: PRINT "██████████████████████████████████████████████████████████████████████████████";
  102. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 15, 4: PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄";
  103. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 15, 7: PRINT "██████████████████████████████████████████████████████████████████████████████";
  104. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 4, 7: PRINT "██████████████████████████████████████████████████████████████████████████████";
  105. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 4, 0: PRINT "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ";
  106. COLOR 7, 0: PRINT "                                                                                ";
  107. PRINT "                                                                                ";
  108. PRINT "                                                                                ";
  109. COLOR 7, 0
  110. ' ********************** THE STAR-SPANGLED BANNER ************************
  111. '                       Adapted from a BASICA program.
  112.  
  113. A$ = "O3L8E-.L16CL4O2A-O3CE-A-..O4L8C.O3L16B-L4A-CDL2E-L8E-E-O4L4C.O3L8B-L4A-L2GL8FG"
  114. B$ = "L4A-A-E-CO2A-O3L8E-.L16CL4O2A-O3CE-L2A-O4L8C.L16O3B-L4A-CDL2E-L8E-E-"
  115. C$ = "L4O4C.O3L8B-L4A-L2GL8FGL4A-A-E-CO2A-O4L8CCL4CD-E-L2E-L8D-C"
  116. D$ = "O3L4B-O4CD-L2D-L8D-D-L4C.O3L8B-L4A-GGL8FGL4A-CDL2E-"
  117. E$ = "L8E-E-L4A-A-L8A-G"  ' CHORUS
  118. F$ = "L4FFFB-O4L8D-CO3B-A-L4A-G..L8E-E-L4A-.L8B-O4CD-L2E-O3L8A-B-O4L4C.L8D-L4O3B-L2A-L2A-"
  119.  
  120. PLAY "T140"                'Tempo default is T120, this was T104
  121. PLAY "X" + VARPTR$(A$)
  122. PLAY "X" + VARPTR$(B$)
  123. PLAY "X" + VARPTR$(C$)
  124. PLAY "X" + VARPTR$(D$)
  125. PLAY "X" + VARPTR$(E$)
  126. PLAY "X" + VARPTR$(F$)
  127.  
  128.